home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / MarkPascal < prev    next >
Text File  |  1989-04-13  |  473b  |  22 lines
  1. #    MarkPascal
  2. #    based on SignPosts by Russ Wetmore
  3.  
  4. Set white '[ ∂t]'
  5. Set reserved '[A-Za-z_][A-Za-z0-9_.]*'
  6. Alias window.§ 'Catenate "{window}".§'
  7.  
  8. Set Exit 0
  9. For window in {"Parameters"}
  10.     For token In PROGRAM UNIT FUNCTION PROCEDURE
  11.         Find • "{window}"
  12.         Loop
  13.             Find /•{white}*{token}{white}+{reserved}/ "{window}"
  14.             Break If {Status} != 0
  15.             Find Δ(§Δ:\{white}\) "{window}"
  16.             Find /{reserved}/ "{window}"
  17.             Mark -y § "`window.§`" "{window}"
  18.         End
  19.     End
  20. End
  21. Set Exit 1
  22.